unit TransferenciaSearchFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, StdCtrls, DBGrids, DbCtrls, EditBtn, MainSearchFr;

type

  { TTransferenciaSearchFrame }

  TTransferenciaSearchFrame = class(TMainSearchFrame)
    data: TDateEdit;
    id_conta_credito: TDBLookupComboBox;
    id_conta_debito: TDBLookupComboBox;
    id_transferencia: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure LocalizarButtonClick(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses TransferenciaDM,QueryConditions;

{ TTransferenciaSearchFrame }


procedure TTransferenciaSearchFrame.LocalizarButtonClick(Sender: TObject);
var
  condicoes: TQueryConditions;
begin
  condicoes := TQueryConditions.Create(CON_AND);
  condicoes.Add('id_transferencia', id_transferencia.Text);
  condicoes.AddText('id_conta_debito', id_conta_debito.Text);
  condicoes.AddText('id_conta_credito', id_conta_credito.Text);
  condicoes.AddText('data', data.Text);
  TransferenciaData.Search(Condicoes, 'transferencia');
end;


initialization
  {$I transferenciasearchfr.lrs}

end.

